home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / programs / lotus / lotus001.dsk / MACROS / PRINTNOW.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  1.3 KB  |  125 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     QMS-PS 810
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     ╢┌▌─ò╢Åæé╠ê≤ìⁿ
  28.     
  29.     
  30.     
  31.     noautorun
  32.     775429431
  33.     5
  34.     707464918
  35.     12
  36.     1
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     1
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [l1]
  63.     0
  64. [pg]
  65.     1
  66.     13 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  67. [edoc]
  68. <:#239,9071>define IsOKToRun(menuname)            GetInfo(217, 24, %1)
  69.  
  70. <:#239,9071>
  71.  
  72. @╠º▌╕╝«▌@FUNCTION printnow()
  73.  
  74. count = getopenfilecount()
  75.  
  76. if count << 1
  77.  
  78.     message("èJéóé─éóéΘò╢Åæé¬éáéΦé▄é╣é±üB╠º▓┘é≡âJâîâôâgÅ≤æ╘é╔é╡é─é⌐éτé⌐éτé▒é╠â}âNâìé≡Ä└ìsé╡é─é¡é╛é│éóüB")
  79.  
  80.     exit function
  81.  
  82. endif
  83.  
  84. if IsOKToRun(FilePrint) != 1
  85.  
  86.     message("î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±üB")
  87.  
  88. endif
  89.  
  90. FilePrint(1 1 9999 1537  )
  91.  
  92. END FUNCTION
  93.  
  94. >
  95.  
  96. [Embedded]
  97. 00000998
  98. >
  99. [macsum] 1
  100. printnow 0 0 2 2
  101. [macse]
  102. 14 printnow
  103. 0 1050
  104. 13
  105. 8 1
  106. 6 1
  107. 5 1
  108. 18 5
  109. 11 00000169
  110. 0 3 "èJéóé─éóéΘò╢Åæé¬éáéΦé▄é╣é±üB╠º▓┘é≡âJâîâôâgÅ≤æ╘é╔é╡é─é⌐éτé⌐éτé▒é╠â}âNâìé≡Ä└ìsé╡é─é¡é╛é│éóüB"
  111. 6 0
  112. 15
  113. 9
  114. 0 1313 217 24 111
  115. 13
  116. 5 1
  117. 18 1
  118. 11 00000256
  119. 0 3 "î╗ì▌é▒é╠â}âNâìé═Ä└ìsé┼é½é▄é╣é±üB"
  120. 2 111 1 1 1 9999 1537
  121. 6 0
  122. 15
  123. 9
  124. 00001023
  125.